﻿Public Class frmDBCleanLog
    Private Sub frmDBCleanLog_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim i As Integer
        Dim k As Integer
        Dim sVID() As String
        Dim sUVID() As String

        k = 0

        If sValidModelID <> "" Then

            sVID = Split(sValidModelID, ",")
            k = UBound(sVID)
            For i = 0 To k
                If isOK = True Then
                    ListLog.Items.Add("Succssfully Set Item Status=4 for this ID :" & "  " & sVID(i))
                Else
                    ListLog.Items.Add("Failed Set Item Status=4 for this ID :" & "  " & sVID(i))
                End If
            Next
        End If

        If sUValidModelID <> "" Then

            sUVID = Split(sUValidModelID, ",")
            k = UBound(sUVID)

            For i = 0 To k
                ListLog.Items.Add("Can't found the ID,Failed Set Item Status=4 for this ID :" & "  " & sUVID(i))
            Next
        End If

    End Sub


End Class
